home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / net / AmiCom_SysMUI.lha / AmiComSys / rexx / SendFTP.amicomsys < prev    next >
Encoding:
Text File  |  1997-07-29  |  822 b   |  44 lines
  1. /* Send FTP-address to your browser
  2.  This uses a WEB-browser to show the FTP-site
  3.  Currently supported is Aweb, Amosaic, Ibrowse and Voyager.
  4.  $VER: SendWEB.amicomsys 1.1 (28.07.1997) Håkan Parting
  5. */
  6. parse arg args
  7. options results
  8.  
  9. if show('P','AWEB.1') then
  10. do
  11.     address 'AWEB.1'
  12.     OPEN args
  13.     Exit
  14. end
  15. if show('P','AMOSAIC.1') then
  16. do 
  17.     address 'AMOSAIC.1'
  18.     JUMP URL args
  19.     Exit
  20. end
  21. if show('P','IBROWSE.1') then
  22. do
  23.     address 'IBROWSE.1'
  24.     NewWindow args
  25.     Exit
  26. end
  27. if show('P','IBROWSE') then
  28. do
  29.     address 'IBROWSE'
  30.     GOTOURL args
  31.     Exit
  32. end
  33. if show('P','VOYAGER') then
  34. do
  35.     address 'VOYAGER'
  36.     OPENURL args NEW
  37.     Exit
  38. end
  39. /* Here you can include the path to your web browser/ftp program:
  40. ** Then it will be automatically started if it not already running. */
  41.  
  42. ADDRESS COMMAND "c:run >NIL: Internet:WWW/Ibrowse/Ibrowse" args;
  43. Exit
  44.